Code/Ajout Sexe Age.R

In INESSSQC/polymedic: Calculs de la polypharmacie

library(data.table)
library(dplyr)
library(polymedic)
# Importation (locale)
FIPA_PA24 <- readRDS("K:/GI-Data/MedPersAg/Data/2015-2016/PA24/data/FIPA_PA24.rds")
Rx_PA24 <- readRDS("K:/GI-Data/MedPersAg/Data/2015-2016/PA24/data/Rx_PA24.rds")
# Convertir en data.table + sélection des colonnes
RX <- copy(as.data.table(Rx_PA24[, c(1,5,2,12)]))
FIPA <- copy(as.data.table(FIPA_PA24[, c(1,2,3)]))
rm(FIPA_PA24); rm(Rx_PA24) # supprimer tableaux originaux

# Convertir les colonnes + ajout age
RX[, DatServ := as.Date(DatServ)]
RX <- RX[DIN != 0]
# Ajout des âges et des sexes
RX <- merge(RX, FIPA %>% select(BenBanls, Sexe, DatNaiss),
            by = "BenBanls", all = TRUE)  # avoir tous les benbanls existants (de FIPA)
# DIN = NA devient -1 (veut dire sans consommation)
RX[is.na(DIN), DIN := -1]
rm(FIPA)
setorder(RX, BenBanls, DIN, DatServ)

# Import hospit
hospit <- fread("K:/GI-Data/MedPersAg/Data/2015-2016/PA24/data/poly_BDy.csv")
hospit[, `:=` (DatAdmHop = as.Date(DatAdmHop),
               DatDepHop = as.Date(DatDepHop))]

# Modifier noms de colonnes
setnames(RX, "BenBanls", "ID")
setnames(hospit, "BenBanls", "ID")